﻿'==============================
'【模块名称】LogHelper.vb
'【作者】罗邓
'【功能】通用日志记录模块，可在项目中任意调用
'==============================
Imports System.IO

Module LogHelper

    '【写日志方法】
    Public Sub WriteLog(message As String)
        Try
            ' 1️⃣ 设置日志文件夹路径（程序目录下的 logs 文件夹）
            Dim logDir As String = Application.StartupPath & "\logs"
            If Not Directory.Exists(logDir) Then
                Directory.CreateDirectory(logDir)
            End If

            ' 2️⃣ 日志文件名（按日期区分）
            Dim logFile As String = Path.Combine(logDir, DateTime.Now.ToString("yyyy-MM-dd") & ".log")

            ' 3️⃣ 日志内容（追加方式写入）
            Using sw As New StreamWriter(logFile, True)
                sw.WriteLine("[" & DateTime.Now.ToString("yyyy-MM-dd HH:mm:ss") & "] " & message)
            End Using
        Catch ex As Exception
            ' 如果写日志也失败了，就忽略，不让程序崩溃
        End Try
    End Sub

End Module
